home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / PopupStripTest.wr_ / PopupStripTest.wr
Text File  |  1998-10-22  |  3KB  |  134 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Green [ exposedField SFFloat transparency ] "..\Appearances\PlasticMaterials.wrl#color12"
  4.  
  5. EXTERNPROTO em7_OutlinedRibbonSeries [
  6.     exposedField SFNode appearance
  7.     exposedField SFColor wireColor
  8.     field SFInt32 xDimension
  9.     field SFFloat xSpacing
  10.     field SFFloat thickness
  11.     field SFFloat depth
  12.     field MFFloat height
  13.     eventIn SFInt32 set_xDimension
  14.     eventIn SFFloat set_xSpacing
  15.     eventIn SFFloat set_thickness
  16.     eventIn SFFloat set_depth
  17.     eventIn MFFloat set_height
  18. ] "..\VR_GRAPH.wrl#em7_OutlinedRibbonSeries"
  19.  
  20. EXTERNPROTO em7_MultiFloatInterval [
  21.     field MFFloat value
  22.     field SFInt32 blockSize
  23.     field SFInt32 index
  24.     eventIn SFInt32 set_index
  25.     eventOut SFInt32 index_changed
  26.     eventOut MFFloat value_changed
  27. ] "..\VR_GRAPH.wrl#em7_MultiFloatInterval"
  28.  
  29. EXTERNPROTO em7_Slider [
  30.     field SFFloat height
  31.     field SFFloat radius
  32.     field SFInt32 min
  33.     field SFInt32 max
  34.     field SFInt32 value
  35.     eventIn SFInt32 set_min
  36.     eventIn SFInt32 set_max
  37.     eventIn SFInt32 set_value
  38.     eventOut SFInt32 value_changed
  39. ] "..\VR_UI.wrl#em7_Slider"
  40.  
  41. EXTERNPROTO em7_PopupStrip [
  42.     field SFInt32 xDimension
  43.     field SFFloat xSpacing
  44.     field SFFloat radius
  45.     field SFFloat depth
  46.     field MFFloat height
  47.     field SFColor color
  48.     field SFFloat transparency
  49.     field SFString defaultPopupText
  50.     field SFFloat popupHeight
  51.     field SFString allignment
  52.     field MFString popupText
  53.     exposedField SFColor textColor
  54.     exposedField SFColor backgroundColor
  55.     exposedField SFColor borderColor
  56.     exposedField SFBool touchEnabled
  57.     eventIn MFString set_popupText
  58.     eventIn MFFloat set_height
  59.     eventOut SFBool isOver
  60.     eventOut SFInt32 mouseOverIndex
  61.     eventOut SFInt32 mouseClickedIndex
  62. ] "..\VR_GRAPH.wrl#em7_PopupStrip"
  63.  
  64. NavigationInfo {
  65.     headlight FALSE
  66. }
  67.  
  68. Background {
  69.     skyColor [
  70.         0 0 0.2
  71.         0.7 0.7 0.8
  72.         1 1 1
  73.     ]
  74.     skyAngle [3, 6]
  75. }
  76.  
  77. Transform { 
  78.     translation -3 0 0
  79.     children [
  80.         DEF RIBBON em7_OutlinedRibbonSeries {
  81.             appearance Green {}
  82.             xDimension 7
  83.             xSpacing 1
  84.             depth 0.5
  85.             thickness 0.2
  86.         }
  87.         DEF POPUP em7_PopupStrip {
  88.             xDimension 7
  89.             xSpacing 1
  90.             radius 0.2
  91.             depth 0.25
  92.             transparency 0.75
  93.             popupHeight 0.5
  94.             allignment "TOP"
  95.             popupText ["R1", "R2", "R3", "R4", "R5", "R6", "R7"]
  96.             textColor 0 0 0
  97.             backgroundColor 0.7 0.4 1
  98.         }
  99.     ]
  100. }
  101.  
  102.  
  103. Transform {
  104.     translation -3 -0.5 1
  105.     rotation 0 0 1 -1.5708
  106.     children [
  107.         DEF SLIDER em7_Slider {
  108.             height 6
  109.             radius 0.2
  110.             min 0
  111.             max 15
  112.             value 0
  113.         }
  114.     ]
  115. }
  116.  
  117. PointLight {
  118.     location 25 10 25
  119. }
  120.  
  121. PointLight {
  122.     location -25 10 25
  123. }
  124.  
  125. DEF MULTI_FLOAT em7_MultiFloatInterval {
  126.     value [0.5, 0.7, 0.2, 1, 1.2, 1.2, 0.8, 0.3, 1.4, 1, 0.1, 0.5, 1.1, 1.2, 0.5, 1, 1.2, 1, 1.1, 0.15, 0.15, 0.4, 0.4, 1, 0.15, 0.4, 0.5, 0.8, 0.3, 0.6, 0.3, 0.8, 0.6, 0.3, 0.5]
  127.     blockSize 10
  128.     index 0
  129. }
  130.  
  131. ROUTE SLIDER.value_changed TO MULTI_FLOAT.set_index
  132. ROUTE MULTI_FLOAT.value_changed TO RIBBON.set_height
  133. ROUTE MULTI_FLOAT.value_changed TO POPUP.set_height
  134.